home *** CD-ROM | disk | FTP | other *** search
/ Programming Microsoft Visual Basic .NET / Programming Microsoft Visual Basic .NET (Microsoft Press)(X08-78517)(2002).bin / setup / vbnet / 19 advanced win32 techniques / encryptorservice / projectinstaller.vb < prev   
Encoding:
Text File  |  2001-10-29  |  1.8 KB  |  51 lines
  1. Imports System.ComponentModel
  2. Imports System.Configuration.Install
  3.  
  4. <RunInstaller(True)> Public Class ProjectInstaller
  5.     Inherits System.Configuration.Install.Installer
  6.  
  7. #Region " Component Designer generated code "
  8.  
  9.     Public Sub New()
  10.         MyBase.New()
  11.  
  12.         'This call is required by the Component Designer.
  13.         InitializeComponent()
  14.  
  15.         'Add any initialization after the InitializeComponent() call
  16.  
  17.     End Sub
  18.     Friend WithEvents ServiceProcessInstaller1 As System.ServiceProcess.ServiceProcessInstaller
  19.     Friend WithEvents ServiceInstaller1 As System.ServiceProcess.ServiceInstaller
  20.  
  21.     'Required by the Component Designer
  22.     Private components As System.ComponentModel.Container
  23.  
  24.     'NOTE: The following procedure is required by the Component Designer
  25.     'It can be modified using the Component Designer.  
  26.     'Do not modify it using the code editor.
  27.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  28.         Me.ServiceProcessInstaller1 = New System.ServiceProcess.ServiceProcessInstaller()
  29.         Me.ServiceInstaller1 = New System.ServiceProcess.ServiceInstaller()
  30.         '
  31.         'ServiceProcessInstaller1
  32.         '
  33.         Me.ServiceProcessInstaller1.Account = ServiceProcess.ServiceAccount.User
  34.         Me.ServiceProcessInstaller1.Password = "fb"
  35.         Me.ServiceProcessInstaller1.Username = "FRANCESCO\Administrator"
  36.         '
  37.         'ServiceInstaller1
  38.         '
  39.         Me.ServiceInstaller1.DisplayName = "Simple encrypting service"
  40.         Me.ServiceInstaller1.ServiceName = "Encryptor"
  41.         '
  42.         'ProjectInstaller
  43.         '
  44.         Me.Installers.AddRange(New System.Configuration.Install.Installer() {Me.ServiceProcessInstaller1, Me.ServiceInstaller1})
  45.  
  46.     End Sub
  47.  
  48. #End Region
  49.  
  50. End Class
  51.